home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / EGGS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  274 b   |  18 lines
  1. 5  ' A simple passive demo ("eggs")
  2. 10  SCREEN 1
  3. 20  CLS
  4. 45  C=RND(I)*15
  5. 46  P=RND(I)*2.5
  6. 47  COLOR C,P
  7. 49  FOR I=1 TO 8
  8. 50  XC=RND(I)*319
  9. 60  YC=RND(I)*199
  10. 70  R=5+RND(I)*50
  11. 75  C=RND(I)*3
  12. 77  A=0.2+RND(I)*5
  13. 80  CIRCLE (XC,YC),R,C,,,A
  14. 85  C2=RND(I)*3
  15. 90  PAINT (XC,YC),C2,C
  16. 100  NEXT I
  17. 110  GOTO 45
  18.